BBS in a Box 15/BBS in a box XV-1.iso/Files/Tele/C/CommsService 2.0.2.sit/commsService 2.0.2 Final/Service Definition Files/Georgetown Med. Centre

Text File | 1994-09-06 | 2.3 KB | 62 lines | [TEXT/cSSv]

#
# commsService 2.0 Service Definition File.
#
Name=Georgetown Med. Centre
Description=Provides access to the Georgetown University's Dahlgren Memorial Library Knowledge Network, (LIS and IAIMS databases).
The available options are -
   Books, Series, Audiovisuals and Software
        Keywords (combination of author, title, subject or year)
        Authors, Titles or Subjects
   Journals
       Journal titles or abbreviations
   Special Files
        Document delivery
        Reserve matierals list
        Medical subject headings

TimeOut=0
BreakEnabled=No
PagesToScroll=10
TerminationString=Thank you for using BioSYNTHESIS
ConnectionTool=TGE TCP Tool
ConnectionTokens=HostName gumedlib2.georgetown.edu PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType vt100
ConnectionMenu=No
TerminalTool=VT102 Tool
TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap True NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
TerminalMenu=No
ServiceScripts=on LoginToService
Global ActiveService, FoundString
if ExpectFromService(ActiveService, 20, true, true, "login:") then
if FoundString > 0 then
if SendToService(ActiveService, "medlib" & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Password") then
if FoundString = 1 then
if SendToService(ActiveService, "dahlgren" & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Enter Your Last Name") then
if FoundString = 1 then
if SendToService(ActiveService, "netguest" & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "press <Return> or <Enter>") then
if FoundString = 1 then
if SendToService(ActiveService, return, "") then
repeat while FoundString = 1
get ExpectFromService(ActiveService, 20, true, true, "Press RETURN or ENTER to continue...", "Dahlgren Memorial Library Knowledge Network")
if FoundString = 2 then return true
get SendToService(ActiveService, return, "")
end repeat
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
return false
end LoginToService